Apple Reference & Presen…on Library 1994 September/ARPLE-Sept-94-Supplement.iso/AppleSoft/System 7.5 Demos *Revised*/System Folder/Extensions/QuickDraw™ GX/QuickDraw™ GX.rsrc/psws_-28347

Text File | 1994-08-19 | 874 b | 10 lines

h%%BeginFeature: *?FontEncodingQuery
save 10 dict begin/sv exch def/str 132 string dup 0(fonts/)putinterval def/str2 128 string def/str3(Font /)def/strS(: S
)def/strY(: Y
)def/strN(: N
)def/str0(: 0
)def/GXCheckFont{findfont dup/Encoding get StandardEncoding eq exch dup/FontType get 0 eq exch    dup/PaintType known{/PaintType get}{pop 0}ifelse dup 0 eq exch 2 eq or{{pop str0}{{strS}{strY}ifelse}ifelse}{pop pop strN}ifelse}bind def/usefnfa systemdict/filenameforall known def count{str3 print dup str2 cvs print dup FontDirectory exch known{GXCheckFont}{usefnfa{dup str2 cvs dup length exch str 6 3 -1 roll putinterval 6 add 0 exch str 3 1 roll getinterval mark exch{}str2 filenameforall counttomark 0 gt{cleartomark GXCheckFont}{cleartomark pop strN}ifelse}{pop strN} ifelse}ifelse print}bind repeat(*
)print flush sv end restore
%%EndFeature
%%?EndResourceQuery: Unknown